﻿Imports System.IO
Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim testo As String = ""
    testo = "Questo è un NUOVO testo che " & _
        "abbiamo creato appositamente " & _
        "per questo esempio di SCRITTURA " & _
        "di un file di testo con " & _
        "Visual Basic 2010." & _
        NL & NL & "Funzionerà?"
    Dim nomeFile As String
    nomeFile = My.Computer.FileSystem.CurrentDirectory & _
        "\TextFile1.txt"
    Dim mFileStream As FileStream
    Dim mStreamWriter As StreamWriter
    mFileStream = New  _
        FileStream(nomeFile, FileMode.Create, _
        FileAccess.Write, FileShare.Read)
    mStreamWriter = New StreamWriter(mFileStream)
    mStreamWriter.WriteLine(testo)
    mStreamWriter.Close()

  End Sub
End Module
